home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
maprot1a
/
module1.bas
< prev
next >
Wrap
BASIC Source File
|
1999-06-04
|
1KB
|
41 lines
Attribute VB_Name = "Module1"
Public Declare Function bitblt Lib "gdi32" _
Alias "BitBlt" (ByVal hDestDC As _
Long, ByVal X As _
Long, ByVal Y As _
Long, ByVal nWidth As _
Long, ByVal nHeight As _
Long, ByVal hSrcDC As _
Long, ByVal xSrc As _
Long, ByVal ySrc As _
Long, ByVal dwRop As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" _
(ByVal hDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long
'---------End API Declarations-----
'Constants for the BitBlit and StretchBit functions
Public Const MERGEPAINT = &HBB0226
Public Const SRCINVERT = &H660046
Public Const SRCERASE = &H440328
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCPAINT = &HEE0086